home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Util / Workbench / ToolManager21b.lha / ToolManager / Goodies / DNetScripts.lha / S / dnetputfiles.bat < prev   
DOS Batch File  |  1993-03-21  |  1KB  |  55 lines
  1. ; $VER: DNetPutFiles 1.4 (21.3.93)
  2. ; by Thomas Witt [ EMail: mozart@zelator.in-berlin.de / IRC: `Bach' ]
  3. ;
  4. ; Do the following Entries in Toolmanager 2.0:
  5. ;
  6. ; Programtype: CLI, Arguments on,
  7. ; Command: NewShell CON:352/402/372/80/GetFiles from S:DNetPutFiles.bat
  8. ;                       ^^^^^^^^^^^^^^
  9. ;               Your preferabled size of the Window
  10. ;
  11. ; Set the Variable DNetUL to your preferabled directory for uploads.
  12. ;
  13. ; This File is FD
  14.  
  15.  
  16. Echo "H" NOLINE
  17. UnSet Filename
  18. SetEnv Filename "_DUMMY"
  19. FailAt 22
  20.  
  21. IF NOT EXISTS ENV:DNetUL
  22.   GetFile VAR=Filename TITLE="Upload which file..." OK=Upload CANCEL=Abort DIR=SYS:
  23. ELSE
  24.   GetFile VAR=Filename TITLE="Upload which file..." OK=Upload CANCEL=Abort DIR=$DNetUL
  25. ENDIF
  26.  
  27. Echo "DNetPutFiles by Thomas Witt"
  28. Wait 1
  29. IF $Filename EQ "_DUMMY"
  30.   Echo "Aborted..."
  31.   SKIP END
  32. EndIF
  33.  
  34. IF NOT EXISTS ENV:DNetUL
  35.   Echo "Uploading file `$Filename'"
  36. ELSE
  37.   Echo "Uploading file `$Filename' to Directory $DNetUL"
  38. EndIF
  39.  
  40. PutFiles $Filename
  41.  
  42. If FAIL
  43.   Echo "File not found or DNet not running"
  44. ELSE
  45.   Echo "Done"
  46. EndIF
  47.  
  48. LAB END
  49.  
  50. UnSet Filename
  51.  
  52. Wait 2
  53.  
  54. EndCLI
  55.